home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / EXEC.M < prev    next >
Encoding:
Text File  |  1993-02-24  |  1.6 KB  |  36 lines
  1. MODULE Exec;
  2.  
  3. (*$E MTP*)
  4. FROM ArgCV IMPORT InitArgCV, PtrArgStr;
  5. FROM EasyGEM0 IMPORT FormAlert;
  6. FROM ShellMsg IMPORT StdPaths, ShellPath;
  7. FROM Loader IMPORT CallModule, LoadModule, LoaderResults;
  8. FROM Strings IMPORT String;
  9.  
  10. (*
  11. PROCEDURE CallModule ( REF fileName : ARRAY OF CHAR;
  12.                            paths    : PathList;
  13.                        REF arg      : ARRAY OF CHAR;
  14.                            env      : ADDRESS;
  15.                        VAR exitCode : INTEGER;
  16.                        VAR errMsg   : ARRAY OF CHAR;  (* 80 Zeichen max. *)
  17.                        VAR result   : LoaderResults);
  18. *)
  19.  
  20. VAR modName, errMsg: String;
  21.     result: LoaderResults;
  22.     argv: ARRAY [0..2] OF PtrArgStr;
  23.     argc: CARDINAL;
  24.     i: INTEGER;
  25.  
  26. BEGIN
  27.   InitArgCV (argc, argv);
  28.   IF argc > 1 THEN
  29.     CallModule (argv[1]^, StdPaths, "", NIL, i, errMsg, result);
  30.   ELSE
  31.     FormAlert (1, "[1][No prg specified][ OK ]", argc);
  32.   END
  33. END Exec.
  34. ə
  35. (* $FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$0000036A$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562E$FFED562EÇ$000002FAT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$0000035A$000002D3$FFED562E$00000042$0000001F$0000035A$FFED562E$0000034C$0000035A$00000364$000002FA$000003AC$0000039B$0000001A$00000066$00000355¼ÇÇ*)
  36.